home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Tools / GuiEdit.gc < prev    next >
Text File  |  1999-04-21  |  2KB  |  120 lines
  1. G4C
  2.  
  3. WINBIG 10 12 279 126    "Gui4Cli GadEdit"
  4. wintype 11110001
  5. varpath ''
  6.  
  7. xonload
  8.     guiopen guiedit.gc
  9.  
  10. xonclose
  11.     guiquit guiedit.gc
  12.  
  13.  
  14. ; ===================================================================
  15.  
  16. ;            The menus
  17.  
  18. ; ===================================================================
  19.  
  20.  
  21. xMenu  Project "New GUI" "" N
  22.     gosub guiedit.gc newfile
  23.  
  24. xroutine newfile        ; also called from other guis
  25.     ReqFile -1 -1 300 200 "Enter new GUI name:" SAVE guiname ''
  26.     if $guiname < ' '
  27.        stop
  28.     endif
  29.     ifexists file $guiname
  30.        guiload $guiname
  31.     else
  32.        extract guiname file name
  33.        .dummy = 'G4C\n\nWinBig -1 -1 200 100 $name\nWinType 11110001\n\nxOnLoad\nGuiOpen #This\n\nxOnClose\nGuiQuit #This\n\n'
  34.        copy env:.dummy $guiname
  35.        guiload $guiname
  36.        delete env:.dummy
  37.     endif
  38.     return 1
  39.  
  40. xMenu  Project "Load..." '' L
  41.     ReqFile -1 -1 300 200 "Choose GUI:" LOAD guiname ''
  42.     if $guiname > ' '
  43.        guiload $guiname
  44.        guiopen $guiname
  45.     endif
  46.  
  47. xMenu  Project BARLABEL  '' ''
  48.  
  49. xMenu  Project About..  '' ''
  50.     ezreq 'Gui4Cli Gui Editor Gui\n\nChoose Gadgets with CONTROL-Click\nand Click them into your window.' "You bet!.." ''
  51.  
  52. xMenu  Project Quit  '' Q
  53.     guiquit guiedit.gc
  54.     guiquit gridset.g
  55.  
  56.  
  57. ; ===================================================================
  58.  
  59. ;        The gadgets for picking up & cloning
  60.  
  61. ; ===================================================================
  62.  
  63. ; ----------------------------- listviews
  64.  
  65. CTEXT 6 4  "Simple LV" "topaz.font" 8 2 0 "000"
  66. XLISTVIEW 6 15 80 22   "" variable "" 10 TXT
  67.  
  68. CTEXT 6 39  "Multi LV" "topaz.font" 8 2 0 "000"
  69. XLISTVIEW 5 49 80 22  "" "variable" "" 10 MULTI
  70.  
  71. CTEXT 6 72  "Dir lv" "topaz.font" 8 2 0 "000"
  72. XLISTVIEW 5 82 80 22  "" "variable" "" 10 DIR
  73.  
  74.  
  75. ; ----------------------------- other gadgets
  76.  
  77.  
  78. XBUTTON 102 31 81 14   "Button"
  79.  
  80. XRADIO 165 4 18 9   variable 6
  81.     RStr Radio1 1
  82.     RStr Radio2 2
  83.  
  84. XCYCLER 102 46 80 16   "" variable
  85.     CStr Cycler 1
  86.     CStr Yes!   2
  87.  
  88. GAUGE 201 81 69 13   IN RIDGE 2 0 50
  89.  
  90. XHSLIDER 102 63 46 12   "" variable 0 100 50 "%ld%%"
  91.  
  92. XPALETTE 102 76 82 13  
  93.  
  94. XTEXTIN 102 90 83 15   "" variable "TextIn" 100
  95.  
  96. TEXT 102 106 82 15   "Text" 40 BOX
  97.  
  98. XCHECKBOX 57 109 26 11   ChkBx variable "On" "Off" ON
  99.  
  100.  
  101. ; ----------------------------- graphics
  102.  
  103. BOX 198 3 70 9   OUT ICONDROP
  104.  
  105. LINE 197 19 268 19   2
  106.  
  107. SQUARE 199 27 67 10   1 NOFILL
  108.  
  109. SQUARE 200 41 68 9   1 FILL
  110.  
  111. CIRCLE 231 59 12 6   1 NOFILL
  112.  
  113. CIRCLE 232 73 13 6   3 FILL
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.